/ Acorn User: China / Acorn User China CD-ROM (UK) (Disc A) / Acorn User China CD-ROM (UK) (Disc A).bin / DEMON / DEVELOPER / NETCONF0.ARC / !NetConfig_Lib_newsbase

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0e f4 3e 6e 65 | 77 73 62 61 73 65 0d 00 |.....>ne|wsbase..|
|00000010| 14 21 f4 20 43 6f 70 79 | 72 69 67 68 74 20 31 39 |.!. Copy|right 19|
|00000020| 39 35 20 43 6f 6c 69 6e | 20 48 6f 67 62 65 6e 0d |95 Colin| Hogben.|
|00000030| 00 1e 40 f4 20 59 6f 75 | 20 75 73 65 20 74 68 69 |..@. You| use thi|
|00000040| 73 20 63 6f 64 65 20 66 | 6f 72 20 61 6e 79 20 6e |s code f|or any n|
|00000050| 6f 6e 2d 70 72 6f 66 69 | 74 20 70 75 72 70 6f 73 |on-profi|t purpos|
|00000060| 65 2c 20 70 72 6f 76 69 | 64 65 64 20 79 6f 75 0d |e, provi|ded you.|
|00000070| 00 28 3e f4 20 64 6f 63 | 75 6d 65 6e 74 20 61 6e |.(>. doc|ument an|
|00000080| 79 20 63 68 61 6e 67 65 | 73 20 6d 61 64 65 20 61 |y change|s made a|
|00000090| 6e 64 20 61 70 70 6c 79 | 20 74 68 65 20 73 61 6d |nd apply| the sam|
|000000a0| 65 20 63 6f 6e 64 69 74 | 69 6f 6e 73 2e 0d 00 32 |e condit|ions...2|
|000000b0| 04 0d 00 3c 14 dd 20 a4 | 6e 65 77 73 62 61 73 65 |...<.. .|newsbase|
|000000c0| 5f 69 6e 69 74 0d 00 46 | 27 6e 65 77 73 62 61 73 |_init..F|'newsbas|
|000000d0| 65 5f 64 69 72 24 3d 6e | 65 74 5f 64 69 72 24 2b |e_dir$=n|et_dir$+|
|000000e0| 22 2e 21 4e 65 77 73 62 | 61 73 65 22 0d 00 50 06 |".!Newsb|ase"..P.|
|000000f0| 3d 30 0d 00 5a 04 0d 00 | 64 16 dd 20 a4 6e 65 77 |=0..Z...|d.. .new|
|00000100| 73 62 61 73 65 5f 63 6f | 6e 66 69 67 0d 00 6e 2f |sbase_co|nfig..n/|
|00000110| ea 20 5f 6e 64 24 2c 5f | 75 73 24 2c 69 25 2c 63 |. _nd$,_|us$,i%,c|
|00000120| 73 65 63 25 2c 6d 69 6e | 25 2c 74 69 6d 65 7a 6f |sec%,min|%,timezo|
|00000130| 6e 65 24 2c 6e 65 77 75 | 73 65 72 0d 00 78 1d 5f |ne$,newu|ser..x._|
|00000140| 6e 64 24 3d 6e 65 74 5f | 64 69 72 24 2b 22 2e 21 |nd$=net_|dir$+".!|
|00000150| 4e 65 77 73 44 69 72 22 | 0d 00 82 2e c8 99 22 54 |NewsDir"|......"T|
|00000160| 65 72 72 69 74 6f 72 79 | 5f 52 65 61 64 43 75 72 |erritory|_ReadCur|
|00000170| 72 65 6e 74 54 69 6d 65 | 5a 6f 6e 65 22 20 b8 20 |rentTime|Zone" . |
|00000180| 2c 63 73 65 63 25 0d 00 | 8c 2a 6d 69 6e 25 3d 94 |,csec%..|.*min%=.|
|00000190| 63 73 65 63 25 20 81 20 | 36 30 30 30 3a 20 6d 69 |csec% . |6000: mi|
|000001a0| 6e 25 2b 3d 28 6d 69 6e | 25 81 36 30 29 2a 34 30 |n%+=(min|%.60)*40|
|000001b0| 0d 00 96 29 74 69 6d 65 | 7a 6f 6e 65 24 3d 22 2b |...)time|zone$="+|
|000001c0| 22 3a e7 20 63 73 65 63 | 25 3c 30 20 74 69 6d 65 |":. csec|%<0 time|
|000001d0| 7a 6f 6e 65 24 3d 22 2d | 22 0d 00 a0 1e 74 69 6d |zone$="-|"....tim|
|000001e0| 65 7a 6f 6e 65 24 2b 3d | c2 22 30 30 30 22 2b c3 |ezone$+=|."000"+.|
|000001f0| 6d 69 6e 25 2c 34 29 0d | 00 aa 15 f4 20 73 75 70 |min%,4).|.... sup|
|00000200| 70 6c 79 20 64 65 66 61 | 75 6c 74 73 0d 00 b4 20 |ply defa|ults... |
|00000210| e7 20 6e 65 74 5f 6d 61 | 69 6c 5f 70 72 6f 74 6f |. net_ma|il_proto|
|00000220| 63 6f 6c 24 3d 22 50 4f | 50 22 20 8c 0d 00 be 2d |col$="PO|P" ....-|
|00000230| 20 20 e7 97 a4 64 65 66 | 73 74 72 28 6e 65 74 5f |  ...def|str(net_|
|00000240| 6d 61 69 6c 5f 64 6f 6d | 61 69 6e 24 2c 6e 65 74 |mail_dom|ain$,net|
|00000250| 5f 64 6f 6d 61 69 6e 24 | 29 0d 00 c8 05 cc 0d 00 |_domain$|).......|
|00000260| d2 3e 20 20 e7 97 a4 64 | 65 66 73 74 72 28 6e 65 |.>  ...d|efstr(ne|
|00000270| 74 5f 6d 61 69 6c 5f 64 | 6f 6d 61 69 6e 24 2c 6e |t_mail_d|omain$,n|
|00000280| 65 74 5f 61 63 63 6f 75 | 6e 74 24 2b 22 2e 22 2b |et_accou|nt$+"."+|
|00000290| 6e 65 74 5f 64 6f 6d 61 | 69 6e 24 29 0d 00 dc 05 |net_doma|in$)....|
|000002a0| cd 0d 00 e6 30 f2 6e 65 | 74 5f 70 72 6f 67 72 65 |....0.ne|t_progre|
|000002b0| 73 73 5f 64 6c 67 28 a4 | 6d 73 67 28 22 6e 65 77 |ss_dlg(.|msg("new|
|000002c0| 73 62 61 73 65 2e 70 72 | 6f 67 72 65 73 73 22 29 |sbase.pr|ogress")|
|000002d0| 29 0d 00 f0 28 69 25 3d | a4 64 6c 67 5f 70 6f 6c |)...(i%=|.dlg_pol|
|000002e0| 6c 3a 20 e7 20 69 25 3c | 3e 64 6c 67 5f 4e 55 4c |l: . i%<|>dlg_NUL|
|000002f0| 4c 20 8c 20 3d 69 25 3d | 31 0d 00 fa 19 f4 20 63 |L . =i%=|1..... c|
|00000300| 72 65 61 74 65 20 74 68 | 65 20 21 4e 65 77 73 44 |reate th|e !NewsD|
|00000310| 69 72 0d 01 04 43 f2 66 | 69 6c 65 5f 63 6f 70 79 |ir...C.f|ile_copy|
|00000320| 28 6e 65 74 5f 64 69 72 | 24 2b 22 2e 21 4e 65 77 |(net_dir|$+".!New|
|00000330| 73 62 61 73 65 2e 53 75 | 70 70 6f 72 74 2e 6e 65 |sbase.Su|pport.ne|
|00000340| 77 73 62 61 73 65 2e 6e | 65 77 73 64 69 72 22 2c |wsbase.n|ewsdir",|
|00000350| 5f 6e 64 24 29 0d 01 0e | 28 69 25 3d a4 64 6c 67 |_nd$)...|(i%=.dlg|
|00000360| 5f 70 6f 6c 6c 3a 20 e7 | 20 69 25 3c 3e 64 6c 67 |_poll: .| i%<>dlg|
|00000370| 5f 4e 55 4c 4c 20 8c 20 | 3d 69 25 3d 31 0d 01 18 |_NULL . |=i%=1...|
|00000380| 17 f2 63 64 69 72 28 5f | 6e 64 24 2b 22 2e 6e 65 |..cdir(_|nd$+".ne|
|00000390| 77 73 22 29 0d 01 22 1b | f2 63 64 69 72 28 5f 6e |ws")..".|.cdir(_n|
|000003a0| 64 24 2b 22 2e 6e 65 77 | 73 62 61 73 65 22 29 0d |d$+".new|sbase").|
|000003b0| 01 2c 22 f2 63 64 69 72 | 28 5f 6e 64 24 2b 22 2e |.,".cdir|(_nd$+".|
|000003c0| 6e 65 77 73 62 61 73 65 | 2e 63 6f 6e 66 69 67 22 |newsbase|.config"|
|000003d0| 29 0d 01 36 28 69 25 3d | a4 64 6c 67 5f 70 6f 6c |)..6(i%=|.dlg_pol|
|000003e0| 6c 3a 20 e7 20 69 25 3c | 3e 64 6c 67 5f 4e 55 4c |l: . i%<|>dlg_NUL|
|000003f0| 4c 20 8c 20 3d 69 25 3d | 31 0d 01 40 48 f2 6d 61 |L . =i%=|1..@H.ma|
|00000400| 6b 65 5f 66 69 6c 65 28 | 6e 65 74 5f 72 65 73 70 |ke_file(|net_resp|
|00000410| 61 74 68 24 2b 22 6e 62 | 63 6f 6e 66 69 67 22 2c |ath$+"nb|config",|
|00000420| 5f 6e 64 24 2b 22 2e 6e | 65 77 73 62 61 73 65 2e |_nd$+".n|ewsbase.|
|00000430| 63 6f 6e 66 69 67 2e 6e | 62 63 6f 6e 66 69 67 22 |config.n|bconfig"|
|00000440| 29 0d 01 4a 28 69 25 3d | a4 64 6c 67 5f 70 6f 6c |)..J(i%=|.dlg_pol|
|00000450| 6c 3a 20 e7 20 69 25 3c | 3e 64 6c 67 5f 4e 55 4c |l: . i%<|>dlg_NUL|
|00000460| 4c 20 8c 20 3d 69 25 3d | 31 0d 01 54 42 f2 6d 61 |L . =i%=|1..TB.ma|
|00000470| 6b 65 5f 66 69 6c 65 28 | 6e 65 74 5f 72 65 73 70 |ke_file(|net_resp|
|00000480| 61 74 68 24 2b 22 75 73 | 65 72 73 22 2c 5f 6e 64 |ath$+"us|ers",_nd|
|00000490| 24 2b 22 2e 6e 65 77 73 | 62 61 73 65 2e 63 6f 6e |$+".news|base.con|
|000004a0| 66 69 67 2e 75 73 65 72 | 73 22 29 0d 01 5e 28 69 |fig.user|s")..^(i|
|000004b0| 25 3d a4 64 6c 67 5f 70 | 6f 6c 6c 3a 20 e7 20 69 |%=.dlg_p|oll: . i|
|000004c0| 25 3c 3e 64 6c 67 5f 4e | 55 4c 4c 20 8c 20 3d 69 |%<>dlg_N|ULL . =i|
|000004d0| 25 3d 31 0d 01 68 17 f2 | 63 64 69 72 28 5f 6e 64 |%=1..h..|cdir(_nd|
|000004e0| 24 2b 22 2e 77 6f 72 6b | 22 29 0d 01 72 19 f4 20 |$+".work|")..r.. |
|000004f0| 63 72 65 61 74 65 20 75 | 73 65 72 20 64 65 74 61 |create u|ser deta|
|00000500| 69 6c 73 0d 01 7c 1b f2 | 63 64 69 72 28 5f 6e 64 |ils..|..|cdir(_nd|
|00000510| 24 2b 22 2e 55 73 65 72 | 48 6f 6d 65 22 29 0d 01 |$+".User|Home")..|
|00000520| 86 29 5f 75 73 24 3d 5f | 6e 64 24 2b 22 2e 55 73 |.)_us$=_|nd$+".Us|
|00000530| 65 72 48 6f 6d 65 2e 22 | 2b 6e 65 74 5f 6d 61 69 |erHome."|+net_mai|
|00000540| 6e 5f 75 73 65 72 24 0d | 01 87 20 6e 65 77 75 73 |n_user$.|.. newus|
|00000550| 65 72 3d ac 20 a4 66 69 | 6c 65 5f 65 78 69 73 74 |er=. .fi|le_exist|
|00000560| 73 28 5f 75 73 24 29 0d | 01 90 0f f2 63 64 69 72 |s(_us$).|....cdir|
|00000570| 28 5f 75 73 24 29 0d 01 | 9a 2e f2 6d 61 6b 65 5f |(_us$)..|...make_|
|00000580| 66 69 6c 65 28 6e 65 74 | 5f 72 65 73 70 61 74 68 |file(net|_respath|
|00000590| 24 2b 22 52 4c 4e 22 2c | 5f 75 73 24 2b 22 2e 52 |$+"RLN",|_us$+".R|
|000005a0| 4c 4e 22 29 0d 01 a4 28 | 69 25 3d a4 64 6c 67 5f |LN")...(|i%=.dlg_|
|000005b0| 70 6f 6c 6c 3a 20 e7 20 | 69 25 3c 3e 64 6c 67 5f |poll: . |i%<>dlg_|
|000005c0| 4e 55 4c 4c 20 8c 20 3d | 69 25 3d 31 0d 01 ae 2d |NULL . =|i%=1...-|
|000005d0| f2 66 69 6c 65 5f 63 6f | 70 79 28 5f 75 73 24 2b |.file_co|py(_us$+|
|000005e0| 22 2e 52 4c 4e 22 2c 5f | 75 73 24 2b 22 2e 53 69 |".RLN",_|us$+".Si|
|000005f0| 67 6e 61 74 75 72 65 22 | 29 0d 01 b8 23 f2 63 64 |gnature"|)...#.cd|
|00000600| 69 72 28 5f 6e 64 24 2b | 22 2e 55 73 65 72 48 6f |ir(_nd$+|".UserHo|
|00000610| 6d 65 2e 64 65 66 61 75 | 6c 74 22 29 0d 01 c2 26 |me.defau|lt")...&|
|00000620| f2 63 64 69 72 28 5f 6e | 64 24 2b 22 2e 55 73 65 |.cdir(_n|d$+".Use|
|00000630| 72 48 6f 6d 65 2e 70 6f | 73 74 6d 61 73 74 65 72 |rHome.po|stmaster|
|00000640| 22 29 0d 01 cc 20 f2 63 | 64 69 72 28 5f 6e 64 24 |")... .c|dir(_nd$|
|00000650| 2b 22 2e 55 73 65 72 48 | 6f 6d 65 2e 72 6f 6f 74 |+".UserH|ome.root|
|00000660| 22 29 0d 01 d6 28 69 25 | 3d a4 64 6c 67 5f 70 6f |")...(i%|=.dlg_po|
|00000670| 6c 6c 3a 20 e7 20 69 25 | 3c 3e 64 6c 67 5f 4e 55 |ll: . i%|<>dlg_NU|
|00000680| 4c 4c 20 8c 20 3d 69 25 | 3d 31 0d 01 e0 2b f4 20 |LL . =i%|=1...+. |
|00000690| 73 65 74 20 75 70 20 77 | 65 6c 63 6f 6d 65 20 6e |set up w|elcome n|
|000006a0| 65 77 73 2f 6d 61 69 6c | 20 66 6f 72 20 64 65 6c |ews/mail| for del|
|000006b0| 69 76 65 72 79 0d 01 ea | 20 f2 63 64 69 72 28 5f |ivery...| .cdir(_|
|000006c0| 6e 64 24 2b 22 2e 6e 65 | 77 73 62 61 73 65 2e 57 |nd$+".ne|wsbase.W|
|000006d0| 6f 72 6b 22 29 0d 01 f4 | 5b f2 66 69 6c 65 5f 63 |ork")...|[.file_c|
|000006e0| 6f 70 79 28 6e 65 77 73 | 62 61 73 65 5f 64 69 72 |opy(news|base_dir|
|000006f0| 24 2b 22 2e 73 75 70 70 | 6f 72 74 2e 6e 65 77 73 |$+".supp|ort.news|
|00000700| 62 61 73 65 2e 6e 65 77 | 5f 6d 61 69 6c 22 2c 5f |base.new|_mail",_|
|00000710| 6e 64 24 2b 22 2e 6e 65 | 77 73 62 61 73 65 2e 77 |nd$+".ne|wsbase.w|
|00000720| 6f 72 6b 2e 70 6f 73 74 | 6d 61 73 74 65 72 22 29 |ork.post|master")|
|00000730| 0d 01 f5 64 e7 20 6e 65 | 77 75 73 65 72 20 f2 66 |...d. ne|wuser .f|
|00000740| 69 6c 65 5f 63 6f 70 79 | 28 6e 65 77 73 62 61 73 |ile_copy|(newsbas|
|00000750| 65 5f 64 69 72 24 2b 22 | 2e 73 75 70 70 6f 72 74 |e_dir$+"|.support|
|00000760| 2e 6e 65 77 73 62 61 73 | 65 2e 6e 65 77 5f 6e 65 |.newsbas|e.new_ne|
|00000770| 77 73 22 2c 5f 6e 64 24 | 2b 22 2e 6e 65 77 73 62 |ws",_nd$|+".newsb|
|00000780| 61 73 65 2e 77 6f 72 6b | 2e 6c 6f 63 61 6c 6e 65 |ase.work|.localne|
|00000790| 77 73 22 29 0d 02 08 28 | 69 25 3d a4 64 6c 67 5f |ws")...(|i%=.dlg_|
|000007a0| 70 6f 6c 6c 3a 20 e7 20 | 69 25 3c 3e 64 6c 67 5f |poll: . |i%<>dlg_|
|000007b0| 4e 55 4c 4c 20 8c 20 3d | 69 25 3d 31 0d 02 09 28 |NULL . =|i%=1...(|
|000007c0| ff 22 46 69 6c 65 72 5f | 52 75 6e 20 22 2b 6e 65 |."Filer_|Run "+ne|
|000007d0| 77 73 62 61 73 65 5f 64 | 69 72 24 2b 22 2e 21 42 |wsbase_d|ir$+".!B|
|000007e0| 6f 6f 74 22 0d 02 0a 1f | ff 22 46 69 6c 65 72 5f |oot"....|."Filer_|
|000007f0| 52 75 6e 20 22 2b 5f 6e | 64 24 2b 22 2e 21 42 6f |Run "+_n|d$+".!Bo|
|00000800| 6f 74 22 0d 02 1c 28 69 | 25 3d a4 64 6c 67 5f 70 |ot"...(i|%=.dlg_p|
|00000810| 6f 6c 6c 3a 20 e7 20 69 | 25 3c 3e 64 6c 67 5f 4e |oll: . i|%<>dlg_N|
|00000820| 55 4c 4c 20 8c 20 3d 69 | 25 3d 31 0d 02 26 06 3d |ULL . =i|%=1..&.=|
|00000830| 31 0d ff                |                         |1..     |        |
+--------+-------------------------+-------------------------+--------+--------+